home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / akcl1615.lha / h / sfun_argd.h < prev    next >
Text File  |  1991-10-24  |  288b  |  11 lines
  1. #define SFUN_RETURN_MASK (0xf00 & ~VFUN_NARG_BIT)
  2. #define SFUN_ARG_TYPE_MASK (~0xfff)
  3.  
  4. #define SFUN_RETURN_TYPE(s) \
  5.   ((enum ftype)(((s) & SFUN_RETURN_MASK) >> 8))
  6.  
  7. #define SFUN_START_ARG_TYPES(x) (x=(x>>10))
  8. #define SFUN_NEXT_TYPE(x) ((enum ftype)((x=(x>>2))& 3))
  9.  
  10. #define MAX_C_ARGS 9
  11.